<Serializable()> Public Class Detalle
    Inherits ObjetoPersistente

#Region "atributos"
    Private mArticulo As Articulo
    Private mCantidad As Integer
    Private mSubtotal As Double
#End Region

#Region "propiedades"
    Public Property articulo() As Articulo
        Get
            Return Me.mArticulo
        End Get
        Set(ByVal Value As Articulo)
            Me.mArticulo = Value
        End Set
    End Property
    Public Property cantidad() As Integer
        Get
            Return Me.mCantidad
        End Get
        Set(ByVal Value As Integer)
            Me.mCantidad = Value
        End Set
    End Property
    Public Property subtotal() As Double
        Get
            Return (Me.mSubtotal)
        End Get
        Set(ByVal Value As Double)
            Me.mSubtotal = Math.Round(Value, 2)
        End Set
    End Property
#End Region

#Region "constructores"
    Public Sub New()
        Me.mArticulo = New Articulo
        Me.mCantidad = 0
        Me.mSubtotal = 0.0
    End Sub
    Public Sub New(ByVal unA As Articulo, ByVal unaC As Integer, ByVal unS As Double)
        Me.articulo() = unA
        Me.cantidad() = unaC
        Me.subtotal() = unS
    End Sub
#End Region

End Class
